home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / PROCTYPS.M < prev    next >
Encoding:
Text File  |  1992-02-14  |  238 b   |  16 lines
  1. MODULE ProcTypesTest;
  2.  
  3.   PROCEDURE Nop;
  4.   BEGIN
  5.   END Nop;
  6.  
  7. VAR
  8.   a: PROCEDURE;
  9.   b: PROCEDURE;
  10. BEGIN
  11.   a:=Nop;  (* OK *)
  12.   b:=Nop;  (* OK *)
  13.   a:=b;    (* Error *) (* 1 *)
  14.   b:=a;    (* Error *) (* 2 *)
  15. END ProcTypesTest.
  16.